home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Cadenze Tester2 < prev    next >
Text File  |  1998-10-26  |  628b  |  32 lines
  1. (def-orchestra 'orchestra
  2.    piano (voice1 voice2 voice3 voice4)
  3. )
  4.  
  5. (def-section cadenze
  6.   default
  7.     zone '(2/1 1/1)
  8.     tonality (activate-tonality (major d 3))
  9.     length '((1/8) (1/1))
  10.     velocity '(64)
  11.   voice1
  12.     channel 1
  13.     symbol '((r (-1 t) s r s r (-1 q) p (-1 q) = = r p = = o) (o))
  14.   voice2
  15.     channel 2
  16.     symbol '((p = n n o = = = o = = o n = = n l) (l))
  17.   voice3
  18.     channel 3
  19.     symbol '((g = k k (-1 j) = (-1 m) = l = = l = = k k j) (j))
  20.   voice4
  21.     channel 4
  22.     symbol '((b = i i (-1 j) = k = l = k k l = e e a) (a))
  23. )
  24.  
  25. (midiport :printer)
  26.  
  27. (def-tempo 80)
  28.  
  29. (play-file-p "test"
  30.    piano '(cadenze)
  31. )
  32.